\ HEADER FOR .EXE PROGRAMS 13:54 11/30/91 COPYRIGHT 1985, 1991 (C) BY THOMAS ALMY. ALL RIGHTS RESERVED Permission is granted to registered users of ForthCMP to sell or distrubute computer programs incorporating the compiled contents of this file. MS is a trademark of Microsoft Corporation. This file is for MS-DOS EXE files, with or without a separate stack segment. \ HEADER FOR .EXE PROGRAMS 1 14:11 11/30/91 10 ASM HEX FWD, ( skip the variables ) HEX DSEG VARIABLE DP ( start free ram = HERE, set by END command ) VARIABLE S0 ( top of stack ) VARIABLE R0 ( top of return stack ) VARIABLE BASE ( radix ) 0A BASE ! ( decimal ) CSEG CREATE SEGOFFSET 0 , ( will be filled by END command ) THEN, SEPSSEG? #IF AX CS <SEG SEGOFFSET [] AX ADD #ELSE AX SS <SEG #THEN AX DS >SEG SP AX MOV AX BP MOV AX DEC AX DEC AX S0 [] MOV rssize # BP ADD BP R0 [] MOV \ return stack 0 0 IN/OUT NEED MAIN CLD CALL' MAIN ( call main program ) CODE bye 4C # AX MOV 21 INT END-CODE FORTH 0A = #IF DECIMAL #THEN DSEG
